TEdit=class(StdCtrls.TEdit)
  public
   function FindNextEdit(CurrentEdit:TEdit):TEdit;
   procedure PasteDelimetedText(List:TStringList);
   procedure PasteText;
   procedure WndProc(var Message: TMessage); override;
  end;

...

function TEdit.FindNextEdit(CurrentEdit: TEdit): TEdit;
var
 x:Integer;
begin
Result:=nil;
 If Assigned(CurrentEdit) and Assigned(CurrentEdit.Parent) then
  begin
   for x:=CurrentEdit.ComponentIndex to CurrentEdit.Parent.ComponentCount-1 do
     if (CurrentEdit.Parent.Components[x] is TEdit) and (CurrentEdit.Parent.Components[x]<>CurrentEdit) then
      begin
       Result:=CurrentEdit.Parent.Components[x] as TEdit;
       Exit;
      end;
  end;
end;

procedure TEdit.PasteDelimetedText(List: TStringList);
var
 X:Integer;
 AEdit:TEdit;
begin
if List.Count>0 then
 Text:=List[0];
 if List.Count>=2 then
  begin
   AEdit:=Self;
   for x:=1 to List.Count-1 do
    begin
     AEdit:=FindNextEdit(AEdit);
     if Assigned(AEdit) then
      AEdit.Text:=List[x];
    end;
  end;
end;

procedure TEdit.PasteText;
var
 List:TStringList;
begin
 List:=TStringList.Create;
 try
  List.Delimiter:=#8;
  List.DelimitedText:=ClipBoard.AsText;
  PasteDelimetedText(List);
 finally
  List.Free;
 end;

end;

procedure TEdit.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_PASTE) then
   PasteText
  else
    inherited;
end;