+ 2 tal

Kan stadig ikke huske delphi men du kunne jo enten en boolean

procedure TForm1.Button30Click(Sender: TObject);
begin
  if(boolplus)then
  begin
    Label78.Caption := IntToStr(StrToInt(Label58.Caption) + StrToInt(memo14.Lines[50]));
    boolplus:=false;
  end;

end;

skal du bare lige huske at sætte den til true i starten af programmet, en anden mulighed ville være simpelthen bare at unassign eventen fra knappen, noget i retning af:
TButton(Sender).click:=nil;
vil jeg tro.

Kan du ikke lige forklare helt præcist hvad du vil gøre? Det giver ikke meget mening på stående fod

Evt. så zip alt dit kode og upload det et sted

du har den jo nok til at køre i et loop eller en timer eller sådan noget..

Neej

procedure TForm1.Button30Click(Sender: TObject);
begin
Label78.Caption := IntToStr(StrToInt(Label58.Caption) + StrToInt(memo14.Lines[50]))
end;

Men den skal kun + en gang.

Oka Takker