extraccion de letras de un texto

[odrack]

Saludos.

Tengo un buen rato buscando por la red, pero no he conseguido nada, quiero extraer una o dos letras de una palabra, pero no consigo hacerlo.

Tengo el siguiente codigo, pero solo cuenta el numero de letras que contiene.

Código Delphi [-]
procedure TForm40.Button6Click(Sender: TObject);
var len1:integer;
begin
Len1:=Length(edit1.text);
 edit7.Text:=inttostr(len1);
end;

espero alguien me pueda ayudar.