Ayuda con sistemas de prestamo

[Jpopular]

Hola de nuevo...........

Primeramente gracias por responder, y si, estoy algo "apurado" por que es un trabajo que el profesor dejo para hoy pero por problemas energéticos en mi casa no pude avanzar con esto el fin de semana.

Se que en las normas no se puede estar haciéndoles "tareas" a las personas que las piden, por lo que me disculpo por esto.

Pero como les decía en el primer post, el profesor solo quiere tres cosas que haga el programa, y son captura de datos, calculo del préstamo y despliegue de resultados. En la primera parte ya esta hecho, pero cuando intento hacer el segundo me presentan errores que no he podido resolver, les dejo la parte del problema para ver si me dan una mano:

 
procedure TForm1.Button2Click(Sender: TObject);
var
vprestamo,ano1:integer;
const
int1=0.22;
int2=0.18;
begin
vprestamo:=strtoint(edit1.Text);
if vprestamo <= 50000 then
ano1:=vprestamo * int1
edit2.Text:=inttostr(ano1)
else
ano1:=vprestamo * int2;
edit2.text:=inttostr(ano1);
end;
end.

Se que esta mal hecho y por eso quisiera que me den una mano.

Gracias por todo....

See yaa...