[whitehustle]

Кстати, теперь у меня косяк появился, что когда жму на действия, и на С после уже исчислений, появляется ошибка " Access violation at address 00456F80 in module 'Kalk2.exe'. Read of address FFFFFFFFF. "
Гугл молчит об этом.

На кнопках со знаками такой код

Код:

begin
if Edit1.Text <> '' then
x:=StrToFloat(Edit1.Text);
z:='+';
Edit1.Clear;
end;

и синим выделяет эту строчку

Код:

  Edit1.Text:=Edit1.Text[length(Edit1.Text)];

а тут это , если что

Код:

var
  Kalkulator: TKalkulator;
  x, y, rezultat: real;
  flag: boolean;
  z: char;