procedure TForm1.Button5Click(Sender: TObject);
const
  Separator = ';';
var
  A : string;
  k,m, n : integer;
begin
for m:=0 to Memo1.Lines.Count-1 do
begin
n := 0;
A := Memo1.Lines.Strings[m];
if A <> '' then
begin
k := 1;
repeat
if A[k] = Separator then
begin
n := n + 1;
case n of
           1 : Edit1.Text := Copy(A, 1, k - 1);
           2 : Edit2.Text := Copy(A, 1, k - 1);
           3 : Edit3.Text := Copy(A, 1, k - 1);
           4 : Edit4.Text := Copy(A, 1, k - 1);
end;
Delete(A, 1, k);
k:=1;
end
else
begin
k := k + 1;
end;
until n = 4;
Edit5.Text := A;
end;
end;
end;