[@Rafa3L]

1 form, 2 edit, 1 button

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
im,nh,kl,gh:integer;
sd,vb:string;
begin
sd:=edit1.Text;
kl:=0;gh:=1;im:=length(sd);
for nh:=1 to im do if copy(sd,nh,gh)<>'' then kl:=kl+1;
edit2.Text:=copy(sd,1,kl-2);
end;

Рабочий код.