[SLAKE]

var 
	   sf : TSringField;
begin
 ................
		sf := TStringField.Create(self);
		with sf do
		begin
			FieldName := 'nombre';
			dataset := ClientDataset1;	  // El cliente que quieras
			name := cds.name + 'nombre';
			FieldKind := fkData;
			size := 30;  //el quieras
		end;
 .........
end;