[[ElKurgan]]

Código Delphi [-]
function primeryúltimodígito(n:integer):integer;
var e,inv,d,a:integer;
begin
  inv:=0;
  e:=n;
while n>0 do
begin
   d:=n mod 10;
    inv:=inv*10+d;
    n:=n div 10;
end;
a:=e mod 10;
result:= (d * 10) + a; // Te falta esto
end;

procedure TForm2.N1PRIMERYLTIMODGITO1Click(Sender: TObject);
// Vamos a suponer que tienes un Edit1 donde se teclea el valor numérico
var i: Integer;
begin
  i := StrToInt(Edit1.Text);
  Edit2.Text := IntToSTr(primeryúltimodígito(i));
end;

end.

Espero haberte ayudado
Saludos