Delphi iki basamaklı girilen sayıyı karaktere çevirme

procedure TForm1.Button1Click(Sender: TObject);
var
sayi1:integer;
begin
sayi1:=StrToInt(Edit1.Text);
edit2.Text:=inttostr(sayi1 div 10);
edit3.Text:=inttostr(sayi1 mod 10);
edit4.Text:=edit2.Text+' '+edit3.Text;
end;

Programı indirmek için :