RE:texto siempre seleccionado en un edit
Bueno prodrias hacer lo siguiente
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
end;
Evento OnkeyPress de edit
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['+','-'] then
key:=#0;
Edit1.SelStart:=length(edit1.Text);
end;
Evento OnClick de edit
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
Edit1.SelectAll;
end;
Evento OnKeyDown de edit
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ADD then begin
SetLength(palabras,length(palabras)+1);
palabras[Length(palabras)-1]:=Edit1.SelText;
end else if key=VK_SUBTRACT then
SetLength(palabras,0);
end;
De esta forma lo que vayas escribiendo se irá seleccionando y al presionar la tecla "+" lo seleccionado del edit se agregará al arreglo, cada ves que se presione la tecla "+" se guardará en una posición diferente del arreglo