[NumLock]

много раз спрашивалось и отвечалось:

Код:

var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=StringReplace(Edit1.Text, ', ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    Edit2.Text:=AStrings[0];
    Edit3.Text:=AStrings[1];
    Edit4.Text:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;