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;                    

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

fCurrentEdit.Text := Copy(fCurrentEdit.Text, 1, Length(fCurrentEdit.Text) - 1);
fCurrentEdit.Text := Copy('Beispiel', 1, Length(fCurrentEdit.Text) - 1);
fCurrentEdit.Text := Copy('Beispiel', 1, Length('Beispiel') - 1);
fCurrentEdit.Text := Copy('Beispiel', 1, 8 - 1);
fCurrentEdit.Text := Copy('Beispiel', 1, 7);
fCurrentEdit.Text := 'Beispie';