1) Считаем, получаем 2, 6, 6. Нужен ещё маленький сектор, т. е. 2. Подходит только вариант 1.
2) 2, 4, 1. Очевидно, что ещё одна 1 нужна. Подходит вариант 3.
Первый год - 1,2m
Второй - 1.44m
Третий - 1,728m
Четвертый - 2,0736m
Долг в 2 раза превысит первоначальный вклад через 4 года.
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в Memo1 (кстати, а зачем именно тип Memo?), то можно сделать следующим образом (пример для кнопок "+" и "-")
procedure TForm1.PlusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x+y,r);
Memo1.Lines[0]:=edit1.Text+'+'+edit2.Text+'='+r;
end;
procedure TForm1.MinusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x-y,r);
Memo1.Lines[0]:=edit1.Text+'-'+edit2.Text+'='+r;
end;