[Pilot_Red]

примерно так...

Код:

var
i:integer;
.....................................
procedure TForm1.Button1Click(Sender: TObject);
var
c:integer;
begin
    c:= pos('#',memo1.Lines.Strings[i])-1;
    edit1.Text:=copy(memo1.Lines.Strings[i],1,c);
    edit2.Text:=copy(memo1.Lines.Strings[i],c+2,length(memo1.Lines.Strings[i])-(c+2));
    i:=i+1;
end;