procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Memo1.Alignment := taRightJustify; 
  Memo1.MaxLength := 24; 
  Memo1.WantReturns := false; 
  Memo1.WordWrap := false; 
end; 
 
procedure MultiLineMemoToSingleLine(Memo : TMemo); 
var 
  t : string; 
begin 
  t := Memo.Text; 
  if Pos(#13, t) > 0  then begin 
   while Pos(#13, t) > 0 do 
     delete(t, Pos(#13, t), 1); 
   while Pos(#10, t) > 0 do 
     delete(t, Pos(#10, t), 1); 
   Memo.Text := t; 
  end; 
end; 
 
procedure TForm1.Memo1Change(Sender: TObject); 
begin 
  MultiLineMemoToSingleLine(Memo1); 
end; 
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); 
begin 
  MultiLineMemoToSingleLine(Memo1); 
end;