Also wenn du mit enter drücken das Zeichen was in der Asci-tabelle als "enter" definiert ist meinst ist der der code 13
Weiß nicht ob das auch bei konsolen funktioniert, aber ich habs mal in nen Chat eingebaut, damit er immer den text sendet, wenn man enter drückt:
Code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) and (Edit1.Text <> '') Then
begin
sendo;
end;
end;