1:

xy.Text := xy.Text + 'Neuer Inhalt';					

1:

Edit1.Text := Edit1.Text + '1';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

TFormX = class(TForm)
...
private
  fCurrentEdit: TEdit;
public
end;

...

// Dies muss als OnEnter Ereignisbehandlung in alle drei Edits
procedure EditXEnter(Sender: TObject);
begin
  fCurrentEdit := TEdit(Sender);
end;					

1:
2:
3:
4:
5:

private
    fCurrentEdit: TEdit;
  public
    { Public-Deklarationen }
  end;					

1:
2:
3:
4:
5:
6:

procedure THauptfenster.Edit1Enter(Sender: TObject);
var
fCurrentEdit : TEdit;
begin
fCurrentEdit := TEdit(Sender);
end;					

1:

[DCC Hinweis] Rechner.pas(440): H2077 Auf 'fCurrentEdit' zugewiesener Wert wird niemals benutzt					

1:
2:
3:
4:

procedure THauptfenster.Button15Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + '1';
end;					

1:
2:
3:
4:

procedure THauptfenster.Button15Click(Sender: TObject);
begin
fCurrentEdit.Text := fCurrentEdit.Text + '1';
end;					

1:
2:
3:

begin 
fCurrentEdit := TEdit(Sender); 
end;					

1:
2:

begin
  fCurrentEdit.Text := '-' + fCurrentEdit.Text;					

1:
2:

if (Length(fCurrentEdit.Text) > 0) and (fCurrentEdit.Text[1] = '-') then
  Delete(fCurrentEdit.Text, 1, 1);					

1:
2:
3:
4:
5:

var
  zahl: Double;
begin
  if TryStrToFloat(fCurrentEdit.Text, zahl) then
    fCurrentEdit.Text := -1 * FloatToStr(zahl);					

1:

[DCC Fehler] Rechner.pas(159): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden					

1:

[DCC Fehler] Rechner.pas(161): E2010 Inkompatible Typen: 'string' und 'Integer'					

1:
2:

  if (Length(fCurrentEdit.Text) > 0) and (fCurrentEdit.Text[1] = '-') then
    fCurrentEdit.Text := Copy(fCurrentEdit.Text, 2, Length(fCurrentEdit.Text) - 1);					

1:
2:
3:
4:
5:

var
  zahl: Double;
begin
  if TryStrToFloat(fCurrentEdit.Text, zahl) then
    fCurrentEdit.Text := FloatToStr(-1 * zahl);					

1:
2:
3:

begin
fCurrentEdit.Text := fCurrentEdit.Text - '';
end;					

1:
2:
3:
4:

begin
if (Length(fCurrentEdit.Text) > 0) then
    fCurrentEdit.Text := Copy(fCurrentEdit.Text, 1, Length(fCurrentEdit.Text) - 1);
end;					

1:
2:
3:
4:

begin
if (Length(fCurrentEdit.Text) > 0) then
    fCurrentEdit.Text := Copy(fCurrentEdit.Text, -8, Length(fCurrentEdit.Text) - 1);
end;