Espero que hayas leído la guía de estilo. En lazarus sería algo así como:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:='left right';
label2.Caption:=leftstr(label1.Caption,4);
end;
Si querés obtener los primeros 4 caracteres de la izquierda, por ejemplo.
Saludos