Test mal:
Code:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
if edit1.Text[length(edit1.text)]='\' then
begin
edit2.text:=edit1.text+'hilfe';
edit3.text:=edit1.text+'graphic';
edit4.text:=edit1.Text+'sonstige';
end else
begin
edit2.text:=edit1.text+'\hilfe';
edit3.text:=edit1.text+'\graphic';
edit4.text:=edit1.text+'\sonstige';
end;
end;
Bei dieser Lösung ist Vorraussetzung, dass edit1-edit4 vorhanden sind. Wenn man jetzt in Edit1 etwas einsetzt, werden die anderen 3 Feldern angepasst. einfach diese Funktion in den Quelltext kopieren und in den Ereignissen bei Edit1.Change auswählen.
MFG
Thomas